Lotusscript

Notes/Domino 8 Forum

Subject:

Lotusscript

It is trivial to write a CSV exporter in Lotusscript. I even posted some code on my blog that you can use for free, exporting a view as CSV:
http://blog.texasswede.com/export-notes-view-to-excel-with-multi-value-fields/

You could use this code as a base for your exporter, or write something from scratch.

Here is a CSV exporter I wrote for work yesterday, by the way. It is a quick hack, so not very pretty. I am thinking about writing a generic CSV export class, I could have some use for that myself. Keep an eye on my blog (http://blog.texasswede.com) the next few days. :-)

Here is the code:

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim col As NotesViewEntryCollection
Dim entry As NotesViewEntry
Dim doc As NotesDocument
Dim claimnumber As String
Dim cnt As Long
Dim row As String
Dim i As Integer
Dim filename As String

Set db = New NotesDatabase("YourServer/Domain","database.nsf")
Print "Creating CSV file..."
filename = "P:\Legal_ClaimantData.csv"
Open filename For Output As #1
'*** Print header to CSV file
row = |"ClaimNumber","Claimant","Received","Created","Venue","State",|
row = row & |"PlaintiffName(s)","PlaintiffCounsel","PlaintiffFirm","PlaintiffFirmAddress","PlaintiffFirmCity","PlaintiffFirmState","PlaintiffFirmZIP",|
row = row & |"DefendantName(s)","DefendantCounsel","DefendantFirm","DefendantFirmAddress","DefendantFirmCity","DefendantFirmState","DefendantFirmZIP"|
Print #1, row
'*** Get all documents and export them as CSV
Set view = db.GetView("LookupLegalSummaryEntries")
Set col = view.AllEntries
Set entry = col.GetFirstEntry()
Do While Not entry Is Nothing
cnt = cnt + 1
If cnt Mod 100 = 0 Then
Print "Entry " & cnt
End If
Set doc = entry.Document
Call doc.Computewithform(True,False)
claimnumber = doc.GetItemvalue("ClaimNumber")(0)
If claimnumber<>"" Then
row = |"| & claimnumber & |","| & doc.GetItemValue("Claimant")(0)
If IsDate(doc.GetItemValue("Received_Date")(0)) Then
row = row & |",| & Format$(CDat(doc.GetItemValue("Received_Date")(0)),"mm/dd/yyyy")
Else
row = row & |",| & ""
End If
row = row & |,| & Format$(CDat(doc.Created),"mm/dd/yyyy")
row = row & |,"| & doc.GetItemValue("LegalVenue")(0)
row = row & |","| & doc.GetItemValue("LegalVenueState")(0)

row = row & |","| & Join(doc.GetItemValue("PlaintiffNameList"),",")
row = row & |","| & doc.GetItemValue("PlaintiffCounsel")(0)
row = row & |","| & doc.GetItemValue("PlaintiffFirm")(0)
row = row & |","| & doc.GetItemValue("PlaintiffFirmAddress")(0)
row = row & |","| & doc.GetItemValue("PlaintiffFirmCity")(0)
row = row & |","| & doc.GetItemValue("PlaintiffFirmState")(0)
row = row & |","| & doc.GetItemValue("PlaintiffFirmZIP")(0)

row = row & |","| & Join(doc.GetItemValue("DefendantNameList"),",")
row = row & |","| & doc.GetItemValue("DefendantCounsel")(0)
row = row & |","| & doc.GetItemValue("DefendantFirm")(0)
row = row & |","| & doc.GetItemValue("DefendantFirmAddress")(0)
row = row & |","| & doc.GetItemValue("DefendantFirmCity")(0)
row = row & |","| & doc.GetItemValue("DefendantFirmState")(0)
row = row & |","| & doc.GetItemValue("DefendantFirmZIP")(0) & |"|

Print #1, Replace(Replace(row,Chr$(13),"\r"),Chr$(10),"")
End If
Set entry = col.GetNextEntry(entry)
Loop
Close #1
MsgBox "Exported legal status data to " & filename
End Sub

Feedback response number WEBB9CLL8D created by ~Dan Kikiterobu on 10/18/2013